;; See also osc-responder, which is an overwriting form.

;; A printer.

(define (printer packet)
  (inform "Printer" packet))

;; Register printer to receive "status.reply" packets from any
;; address.

(osc-receiver-register "status.reply" printer)

;; Request a "status.reply" packet from the current server.

(-> "/status")

;; Unregister the printer.

(osc-receiver-unregister printer)

;; Request another "status.reply".

(-> "/status")

;; Start a thread that waits for a "status.reply" message and exits.

(in-thread
 (apply inform "Wait returned" (osc-wait "status.reply"))) ; => <thread>

;; Request another "status.reply".

(-> "/status")
